home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / misc_lsp.arc / LAYERS.LSP < prev    next >
Encoding:
Text File  |  1987-09-15  |  937 b   |  33 lines
  1. ;
  2. (defun c:ls ( / layer)
  3.    (setvar "BLIPMODE" 0)
  4.    (setq layer (cdr (assoc 8 (entget (car (entsel "Pick Item for Layer "))))))
  5.    (command "layer" "set" layer "")
  6. )
  7. ;
  8. (defun c:lo ( / layer)
  9.    (setvar "BLIPMODE" 0)
  10.    (setq layer (cdr (assoc 8 (entget (car (entsel "Pick Item for Layer to turn off "))))))
  11.    (command "layer" "off" layer "")
  12. )
  13. ;
  14. (defun c:lf ( / layer)
  15.    (setvar "BLIPMODE" 0)
  16.    (setq layer (cdr (assoc 8 (entget (car (entsel "Pick Item for Layer to freeze "))))))
  17.    (command "layer" "freeze" layer "")
  18. )
  19.  
  20. ;       Delete all entities on specified layer
  21.  
  22. (defun c:dlay ()
  23.         (setq l (strcase (getstring "\nEnter layer to delete: ")))
  24.         (setq e (entnext))
  25.         (while e
  26.            (if (= l (cdr (assoc 8 (entget e))))
  27.               (entdel e)
  28.            )
  29.            (setq e (entnext e))
  30.         )
  31. )
  32. (prompt "\nLS - LAYER SET     LO - LAYER OFF     DLAY - DELETE LAYER")
  33.